home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / Pt / Player.e
Encoding:
Text File  |  1994-10-03  |  452 b   |  17 lines
  1. -> protracker player
  2.  
  3. MODULE 'tools/file', 'tools/pt'
  4.  
  5. PROC main() HANDLE
  6.   DEF m,l
  7.   WriteF('Protracker player en E (En ce moment: "\s", Ctrl-C pour arrêter).\n',arg)
  8.   m,l:=readfile(arg,0,2)
  9.   pt_play(m)
  10.   REPEAT
  11.     Delay(10)      -> au lieu de ça, on peut faire quelque chose d'utile
  12.   UNTIL CtrlC()
  13.   pt_stop()
  14. EXCEPT DO
  15.   IF exception THEN WriteF('Exception: "\s", Info: "\s"\n',[exception,0],IF exceptioninfo THEN exceptioninfo ELSE '')
  16. ENDPROC
  17.